home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / domacnost a kancelar / scribus / scribus-1.3.3.7-win32-install.exe / tcl / tix8.1 / StdBBox.tcl < prev    next >
Text File  |  2001-11-03  |  2KB  |  72 lines
  1. # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: StdBBox.tcl,v 1.1.1.1.2.1 2001/11/03 07:23:17 idiscovery Exp $
  4. #
  5. # StdBBox.tcl --
  6. #
  7. #    Standard Button Box, used in standard dialog boxes
  8. #
  9. # Copyright (c) 1993-1999 Ioi Kim Lam.
  10. # Copyright (c) 2000-2001 Tix Project Group.
  11. #
  12. # See the file "license.terms" for information on usage and redistribution
  13. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  14. #
  15.  
  16.  
  17.  
  18. tixWidgetClass tixStdButtonBox {
  19.     -classname TixStdButtonBox
  20.     -superclass tixButtonBox
  21.     -flag {
  22.     -applycmd -cancelcmd -helpcmd -okcmd
  23.     }
  24.     -configspec {
  25.     {-applycmd applyCmd ApplyCmd ""}
  26.     {-cancelcmd cancelCmd CancelCmd ""}
  27.     {-helpcmd helpCmd HelpCmd ""}
  28.     {-okcmd okCmd OkCmd ""}
  29.     }
  30.     -default {
  31.     {.borderWidth     1}
  32.     {.relief     raised}
  33.     {.padX         5}
  34.     {.padY         10}
  35.     {*Button.anchor    c}
  36.     {*Button.padX    5}
  37.     }
  38. }
  39.  
  40. proc tixStdButtonBox:ConstructWidget {w} {
  41.     upvar #0 $w data
  42.  
  43.     tixChainMethod $w ConstructWidget
  44.  
  45.     $w add ok     -text OK     -under 0 -width 6 -command $data(-okcmd)
  46.     $w add apply  -text Apply  -under 0 -width 6 -command $data(-applycmd)
  47.     $w add cancel -text Cancel -under 0 -width 6 -command $data(-cancelcmd)
  48.     $w add help   -text Help   -under 0 -width 6 -command $data(-helpcmd)
  49. }
  50.  
  51. proc tixStdButtonBox:config {w flag value} {
  52.     upvar #0 $w data
  53.  
  54.     case $flag {
  55.     -okcmd {
  56.         $data(w:ok)     config -command $value
  57.     }
  58.     -applycmd {
  59.         $data(w:apply)  config -command $value
  60.     }
  61.     -cancelcmd {
  62.         $data(w:cancel) config -command $value
  63.     }
  64.     -helpcmd {
  65.         $data(w:help)   config -command $value
  66.     }
  67.     default {
  68.         tixChainMethod $w config $flag $value
  69.     }
  70.     }
  71. }
  72.